procedure FindClose(var FindRec: TFindRec);
Ends a find sequence, and frees the resources associated with it. You should always call this when FindFirst returns True.
For an example, see the documentation for FindFirst.